home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 18 / fpc103.zip / HELLO.SEQ < prev    next >
Text File  |  1988-06-28  |  3KB  |  74 lines
  1. \ HELLO.SEQ     Contains the sign on word for Forth.
  2.  
  3. VARIABLE INSTALLED      INSTALLED ON
  4.  
  5. : <.HELLO>      ( --- )
  6.                 DARK
  7. CR CR 34 SPACES >REV ."   F-PC  " >NORM
  8. CR TAB ." ┌───────────────────────────────────────────────────────────┐"
  9. CR TAB ." │ 80x8x Forth ──── Version:1.03b  Date:"
  10.         cdate 2@ DECIMAL
  11.         0 256 UM/MOD hex .## ." /" decimal .## ." /" 1900 - decimal .##
  12.         decimal ."   Time:"
  13.         ctime 2@ drop 0 256 UM/MOD .## ." :" .## decimal   ."  │"
  14. CR TAB ." ├───────────────────────────────────────────────────────────┤"
  15. CR TAB ." │ Based on Original F83      ── Henry Laxen & Michael Perry │"
  16. \ CR TAB ." │ Separated Heads            ── John D. Hopper              │"
  17. \ CR TAB ." │ Handles & Sequential files ─┐     ┌────────────┐          │"
  18. \ CR TAB ." │ Compiler Optimization       │     │ Tom Zimmer │          │"
  19. \ CR TAB ." │ Separate : (colon) LISTs    │     └────────────┘          │"
  20. \ CR TAB ." │ Direct Threading            │            &                │"
  21. \ CR TAB ." │ Prefix/Postfix Assembler    │     Robert L. Smith         │"
  22. \ CR TAB ." │ Control BREAK deferred     ─┘                             │"
  23. \ CR TAB ." │ 8087 Floating Point        ── Mark Smiley & Robert Smith  │"
  24. \ CR TAB ." │ Software Floating Point    ── Robert Smith                │"
  25. CR TAB ." └───────────────────────────────────────────────────────────┘"
  26.         INSTALLED @
  27. IF      CR TAB  4 SPACES .FREE CR
  28.         CR TAB 10 SPACES
  29.                 >ATTRIB1
  30.                 ." Bewildered?  Type: "
  31.                 >rev ."  HELP " >attrib1
  32.                 ."  for assistance"
  33.                 >NORM
  34. THEN    CR      ;
  35.  
  36. : .FILE         ( --- )
  37.                 .SHNDL ."  of " SHNDL @ ENDFILE D. ." bytes" ;
  38.  
  39. : <.CURFILE>    ( --- )
  40.                 CR TAB ." Current File = " SHNDL @ >HNDLE @ -1 <>
  41.                 IF      .FILE
  42.                 ELSE    >attrib1 ." No file Open" >norm
  43.                 THEN    CR ;
  44.  
  45. DEFER .HELLO    ' <.HELLO>      IS .HELLO
  46. DEFER .CURFILE  ' <.CURFILE>    IS .CURFILE
  47.  
  48. : HELLO         ( --- )
  49.                 SP0 @  'TIB !
  50.                 >IN     OFF
  51.                 SPAN    OFF
  52.                 #TIB    OFF
  53.                 LOADING OFF
  54.                 ONLY FORTH ALSO DEFINITIONS
  55.                 DEFAULT
  56.                 >in @ bl word swap >in ! c@ 0=
  57.                 if      .HELLO
  58.                 then    INSTALLED @
  59.         IF      >in @ bl word swap >in ! c@ 0=
  60.                 if      .curfile
  61.                 then    interpret
  62.         ELSE    interpret CR BEEP >REV
  63. ." *** F-PC has not yet been installed, VIEW and HELP may not work properly ***"
  64.                 >NORM CR CR TAB 5 SPACES
  65.                 ." Type INSTALL to setup F-PC for your environment" CR
  66.         THEN    ;
  67.  
  68. ' HELLO IS BOOT
  69.  
  70. : MARK          ( -- )
  71.                 CREATE YHERE , DOES> DUP 2+ SWAP @
  72.                 (FRGET)  FORTH DEFINITIONS  ;
  73.  
  74.